home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / ieee_finite.z / ieee_finite
Encoding:
Text File  |  2002-10-03  |  1.6 KB  |  48 lines
  1. IEEE_FINITE(3I)                                       Last changed: 4-13-99
  2.  
  3.  
  4. NNAAMMEE
  5.      IIEEEEEE__FFIINNIITTEE - Tests for _x being greater than negative infinity and
  6.      less than positive infinity.
  7.  
  8. SSYYNNOOPPSSIISS
  9.      IIEEEEEE__FFIINNIITTEE (([XX==]_x))
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS/mk, IRIX systems, CRAY T90 systems that support IEEE
  13.      floating-point arithmetic
  14.  
  15.      CF90, MIPSpro 7 Fortran 90
  16.  
  17. SSTTAANNDDAARRDDSS
  18.      Fortran extension
  19.  
  20.      IEEE Standard for Binary Floating-point Arithmetic
  21.  
  22. DDEESSCCRRIIPPTTIIOONN
  23.      The IIEEEEEE__FFIINNIITTEE intrinsic function returns the value TTRRUUEE if
  24.      -_i_n_f < _x < +_i_n_f.  Otherwise, it returns the value FFAALLSSEE.  IIEEEEEE__FFIINNIITTEE
  25.      accepts the following argument:
  26.  
  27.      _x         Must be of type real.
  28.  
  29.      IIEEEEEE__FFIINNIITTEE is an elemental function.  The name of this intrinsic
  30.      cannot be passed as an argment.
  31.  
  32. RREETTUURRNN VVAALLUUEESS
  33.      The result type and type parameter is default logical.  If _x is an
  34.      array, the result is an array of the same shape as _x.
  35.  
  36. EEXXAAMMPPLLEESS
  37.           REAL   x
  38.              ...                    ! Compute X.
  39.           IF (IEEE_FINITE(x)) THEN
  40.              ...                    ! Do something.
  41.           ELSE
  42.              ...                    ! Do something else.
  43.           END IF
  44.  
  45. SSEEEE AALLSSOO
  46.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed version of this
  47.      man page.
  48.